perm filename TSTM1.SAI[CMU,AIL] blob
sn#113936 filedate 1974-08-03 generic text, type T, neo UTF8
00100
00200 BEGIN "TEST"
00300 REQUIRE "⊂⊃<>" DELIMITERS;
00400 require "
00450 This shows a FORLC/MACRO problem: if the parens around the 'list'
00500 are passed in by the macro parameter, then all is well. If they are
00600 explicitly put it, the compiler will generate an err msg." message;
00700 INTEGER A,B,C,D,E;
00800 DEFINE TSTMAC(LIST)=⊂
00900 FORLC N←LIST DOC ⊂
01000 N←0; ⊃
01100 ENDC
01200 ⊃ ;
01300 TSTMAC(<(A,B,C)>);
01400 REDEFINE TSTMAC(LIST)=⊂
01500 FORLC N←(LIST) DOC ⊂
01600 N←0; ⊃
01700 ENDC
01800 ⊃ ;
01900 TSTMAC(<A,B,C>);
02000 END "TEST"